<script>on mouseUpanswer file "Select a text file to open:" of type "TEXT"if it is empty then exit mouseUpput it into fnameopen file fnamerepeatread from file fname for 1024if it is empty then exit repeatput it after cd fld 1end repeatclose file fnameend mouseUp</script>
</part>
<part>
<id>3</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>369</left>
<top>9</top>
<right>444</right>
<bottom>35</bottom>
</rect>
<style>shadow</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Save As…</name>
<script>on mouseUpask file "Save current document as:"if it is empty then exit mouseUpput it into fnameopen file fnamewrite cd fld 1 to file fnameclose file fnameend mouseUp</script>